home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / bomber mar p106 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  139 lines
  1. 1 rem mad l bomber
  2. 3 gosub 2005
  3. 4 v=53248:pokev+21,0:poke2042,13:bx=80:by=30
  4. 5 sv=54296:sw=54276:sa=54277:sh=54273:sl=54272:jump=0:pokev+41,7
  5. 6 print"speed please":pokev+4,bx:pokev+5,by
  6. 7 print:print"superfast-1":print"fast-2":print"medium-3":print"slow-4"
  7. 8 input"or super slow-5";xp
  8. 9 ifxp=1thensp=0
  9. 10 ifxp=2thensp=75
  10. 11 ifxp=3thensp=150
  11. 12 ifxp=4thensp=300
  12. 13 ifxp=5thensp=600
  13. 14 ifxp>5thenprintchr$(147):goto6
  14. 15 ifxp<1thenprintchr$(147):goto6
  15. 16 mc=0:printchr$(147)
  16. 20 ifmc>20then4010
  17. 21 ifmc<>10goto30
  18. 22 ifmc=10thenforx=1to4:poke53281,1:poke53280,1:poke53281,0:poke53280,0:nextx
  19. 23 printchr$(147):forx=1to7:print:nextx
  20. 24 printchr$(18)"  very good - you're half way through":printchr$(19):jump=0
  21. 25 gosub2031
  22. 30 tt=1 :x=0
  23. 31 forlp=0to2
  24. 32 pokesv,15:pokesw,33:pokesa,0:pokesh,45:pokesl,0
  25. 33 printchr$(19)"  code red - mad l bomber approaching   ":forlo=1to100:nextlo
  26. 34 printchr$(19)chr$(18)" code red - mad l bomber approaching  "
  27. 35 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0:pokev+21,4
  28. 36 forlo=1to40:nextlo:next lp
  29. 37 ifk$=chr$(x)then40
  30. 40 n=int(rnd(1)*38)+1
  31. 41 ifjump>0thengoto82
  32. 42 jump=1
  33. 50 poke53281,0:poke53280,0:printchr$(5);chr$(19)
  34. 70 for x=0to39:poke1944+x,120:poke56216+x,7:nextx
  35. 75 forx=0to3:ld=int(rnd(1)*30)+1:poke1904+ld,102:poke56176+ld,13
  36. 77 poke1864+ld,92:poke56136+ld,13:nextx
  37. 80 forx=0to5:ld=int(rnd(1)*35)+1:poke1904+ld,102:poke56176+ld,1:nextx
  38. 82 forx=0to39:poke1024+x,42:poke55296+x,12:nextx
  39. 94 cr=cr-40:ifcr<-800thencr=-800
  40. 95 forx=0to24:ld=int(rnd(1)*35)+1
  41. 96 poke1864+ld+cr,42:poke56136+ld+cr,1:next x
  42. 97 forx=0to4:ld=int(rnd(1)*35)+1
  43. 98 poke1144+ld,42:poke55416+ld,1:next x
  44. 100 le=int(rnd(64)*90)+1
  45. 110 ifle<65orle>90goto100
  46. 120 getk$:ifk$=""then302
  47. 130 ifk$=chr$(le)then155
  48. 140 goto302
  49. 155 pokesv,15:pokesw,133:pokesa,0:pokesh,0:pokesl,130
  50. 156 for fry=1to2
  51. 157 bx=bx+4:by=by-8:pokev+4,bx:pokev+5,by
  52. 170 print chr$(13)chr$(145)chr$(145)tab(n);:print"/"
  53. 172 print chr$(13)chr$(145)chr$(145)tab(n);:printchr$(le):bx=bx+4:by=by-8
  54. 173 print chr$(13)chr$(145)chr$(145)tab(n);:print"-":pokev+4,bx:pokev+5,by
  55. 174 print chr$(13)chr$(145)chr$(145)tab(n);:print"*":bx=bx+4:by=by-8
  56. 175 print chr$(13)chr$(145)chr$(145)tab(n);:printchr$(28)".":pokev+4,bx
  57. 176 print chr$(13)chr$(145)chr$(145)tab(n);:printchr$(le):pokev+5,by
  58. 178 print chr$(13)chr$(145)chr$(145)tab(n);:print"+":printchr$(5)
  59. 179 nextfry
  60. 180 pokesv,15:pokesw,129:pokesa,15:pokesh,40:pokesl,200
  61. 182 pokev+21,0:forpl=1to100:nextpl
  62. 185 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0
  63. 187 pokesv,15:pokesw,129:pokesa,15:pokesh,40:pokesl,200
  64. 188 pokesv,9:forpl=1to20:nextpl:pokesv,6:forpl=1to20:nextpl:pokesv,0
  65. 189 pokesw,0:pokesa,0:pokesh,0:pokesl,0
  66. 190 pokesv,15:pokesw,129:pokesa,15:pokesh,40:pokesl,200
  67. 191 forpl=1to350:nextpl
  68. 195 pokev+21,0:pokev+5,24:pokev+4,60
  69. 200 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0
  70. 250 mc=mc+1:printchr$(19):bx=60:by=60:pokev+21,0:goto20
  71. 302 pokesv,15:pokesw,13:pokesa,240:pokesh,44:pokesl,0
  72. 304 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0
  73. 306 tw=int(rnd(1)*2)
  74. 308 iftw=0thenbd=1
  75. 309 iftw=1thenbd=-1
  76. 310 n=n+bd
  77. 311 ifn<3thenn=3
  78. 312 ifn>37thenn=37
  79. 325 printchr$(13)chr$(145)tab(n);:printchr$(le)
  80. 350 forl=1tosp:next
  81. 360 tt=tt+1:iftt=12then800
  82. 370 printchr$(145)tab(n)chr$(28)chr$(46):printchr$(5)
  83. 372 bx=bx+8:by=by+8:pokev+4,bx:pokev+5,by
  84. 380 goto120
  85. 800 for bd=1to15:poke53281,1:poke53280,1:poke53281,0:poke53280,0:next
  86. 802 pokev+21,0:pokev+4,24:pokev+5,60
  87. 805 printchr$(147):forx=1to5:print:next:printtab(15)"oh dear!!!":gosub1050
  88. 808 printchr$(147):forx=1to5:print:next
  89. 810 printtab(8)"you'll have to be faster":print
  90. 811 printtab(9)"to save the city from"
  91. 812 print:printtab(7)"**** the mad l bomber ****"
  92. 814 print:printtab(7)"you destroyed ";mc;" l bombs !":printchr$(19)
  93. 815 forx=1to1000:nextx
  94. 820 gosub 2031
  95. 830 printchr$(147):forx=1to5:print:next:printtab(7)"want to try again (y or n)"
  96. 840 geta$:ifa$=""then840
  97. 850 ifa$="y"thenprintchr$(19):gosub2031:clr:goto4
  98. 852 ifa$="n"then860
  99. 854 ifa$<>"n"then830
  100. 860 end
  101. 1050 forxx=35to0step-.2:pokesv,xx:pokesw,129:pokesa,15:pokesh,40:pokesl,200:next
  102. 1052 forxx=35to0step-.2:pokesv,xx:pokesw,129:pokesa,15:pokesh,40:pokesl,200:next
  103. 1054 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0:return
  104. 2005 sv=54296:sw=54276:sa=54277:sh=54273:sl=54272:v=53248
  105. 2010 printchr$(147):poke53281,0:poke53280,0:printchr$(5)
  106. 2020 forpt=1to6:print:next:printtab(13)"l bomb busters "
  107. 2022 print:printtab(13)"by gary fields"
  108. 2023 print:printtab(18)"1983"
  109. 2024 forx=1to400:nextx
  110. 2025 print:print:print"your mission is to save the city from"
  111. 2026 printtab(11)chr$(18)"the mad l bomber!!"
  112. 2027 print"destory the falling letter bombs by"
  113. 2028 print"pressing the same key on the keyboard":forx=1to1000:nextx
  114. 2029 printchr$(19):forpr=0to63:readpq:poke832+pr,pq:nextpr
  115. 2031 fordl=0to500:nextdl
  116. 2035 forl=0to24:pokesl+l,0:next
  117. 2040 pokesl+14,5:pokesl+18,16:pokesl+3,1:pokesl+24,143:pokesl+6,240:pokesl+4,65
  118. 2050 fr=5389
  119. 2060 forft=1to50:fq=fr+peek(sl+27)*3.5
  120. 2070 hf=int(fq/256):lf=fq-hf*256:pokesl+0,lf:pokesl+1,hf
  121. 2075 printtab(10)"l bombs are falling":next:pokesl+24,0
  122. 2080 printchr$(147):return
  123. 4010 printchr$(147):forx=1to5:print:next:printtab(10)"very good fast fingers"
  124. 4012 printtab(16)"-you win-":print:print
  125. 4014 printtab(7)"you burst all ";mc;" l bombs"
  126. 4015 print:print"the happy people of the city thank you !"
  127. 4040 forl=0to24:pokesl+l,0:next:pokesl+0,240:pokesl+1,33:pokesl+5,8
  128. 4050 pokesl+22,104:pokesl+23,1:pokesl+24,79:forn=1to19:pokesl+4,129
  129. 4060 forxt=1to100:next:pokesl+4,128:forxt=1to30:next:next
  130. 4065 pokesl+22,0:pokesl+33,0:pokesl+24,0:pokesl+4,0
  131. 4067 pokesl+1,0:pokesl+0,0:pokesl+1,0:pokesl+5,0:pokesl+22,0:pokesl+23,0
  132. 4068 pokesl+33,0
  133. 4069 forx=0to999:nextx
  134. 4070 goto830
  135. 6000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0
  136. 6001 data0,0,0,0,0,0,12,0,128,30,64,199,152,32,224, 218
  137. 6002 data32,176,108,38,184,127,33,143,255,248,255,254,29,254,0, 28
  138. 6003 data7,255,157,3,255,248,1,255,193,0,0,6,0,0,0, 0
  139.